home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 60.zip / BS1 part 60 / Maxon Paint v1.01.adf / INSTALL-MaxonPAINT-HD < prev    next >
Text File  |  1993-03-18  |  7KB  |  274 lines
  1. ; $VER: MaxonPAINT Install Version 1.00 (09.03.93)
  2. ; Script zum Installieren von MaxonPAINT
  3. ; 
  4.  
  5. (set #NOROOM (cat "Nicht genügend Speicherplatz, um... zu installieren."))
  6. (set #ERRORRAM (cat "Kann die notwendigen Dateien nicht in die Ram disk kopieren."))
  7.  
  8. (set #COPVERZ    (cat "In welches Verzeichnis soll MaxonPAINT\nkopiert werden?"))
  9. (set #VERZHELP (cat "Wählen Sie erst die Partition Ihrer Festplatte aus, auf der\nSie gerne MaxonPAINT installieren würden. Dann drücken Sie auf\nPROCEED und das Programm beginnt mit der Arbeit.\n\n"))
  10. (set #COPYRAM    (cat "Einige Installationsdateien werden in die RAM-Disk kopiert ..."))
  11. (set #IMGMAN    (cat "Das Zusatzprogramm Imageman wird entpackt und kopiert!"))
  12.  
  13. (set #PAINTSIZE    410000)
  14. (set #FONTSIZE       5000)
  15. (set #IMAGEMANSIZE 50000)
  16.  
  17. (Procedure Inst_NormFiles
  18.     (if (< (getdiskspace #Dest) #Size)
  19.         (abort #NOROOM))
  20.  
  21.     (set #anzeige (cat "Kopiere "#FName" aus "#SOURCE" \nnach "#Dest))
  22.     (copyfiles (prompt #anzeige)(help @copyfiles-help)(source #Source)(choices #FName)(files)(infos)(dest #Dest)(confirm))
  23. )
  24.  
  25. (Procedure Inst_PatternFiles
  26.     (if (< (getdiskspace #Dest) #Size)
  27.         (abort #NOROOM))
  28.  
  29.     (set #anzeige (cat "Kopiere "#FName" aus "#SOURCE" \nnach "#Dest))
  30.     (copyfiles (prompt #anzeige)(help @copyfiles-help)(source #Source)(pattern #Pattern)(infos)(dest #Dest)(confirm))
  31. )
  32.  
  33. (Procedure Inst_LhaFiles
  34.     ;(set #In_File (tackon #Source #FName.lha))
  35.     (set #TMP (tackon "RAM:" #FName.lha))
  36.     (set #Dest_File (tackon @default-dest #Dest))
  37.     (if                                          ; Verzeichnis erzeugen
  38.         (= (exists #Dest_File) 0)
  39.         (makedir (#Dest_File)(infos))
  40.     )
  41.  
  42.     (if (< (getdiskspace #Dest_File) #Size)
  43.         (abort #NOROOM))
  44.  
  45.     (copyfiles (prompt "")(help "")(source #Source)(choices #FName.lha)(dest "RAM:")(confirm))
  46.     (working #Working #Dest)
  47.     (run ("RAM:Lhx -E -N x %s \"%s/\"" #TMP #Dest_File))
  48.     (delete #TMP)
  49. )
  50.  
  51. (Procedure Inst_LhaFilesnew
  52.     ;(set #In_File (tackon #Source #FName.lha))
  53.     (set #TMP (tackon "RAM:" #FName.lha))
  54.     (set #Dest_File (tackon @default-dest #Dest))
  55.     (makedir (#Dest_File)(infos))
  56.  
  57.     (if (< (getdiskspace #Dest_File) #Size)
  58.         (abort #NOROOM))
  59.  
  60.     (copyfiles (prompt "")(help "")(source #Source)(choices #FName.lha)(dest "RAM:")(confirm))
  61.     (working #Working #Dest)
  62.     (run ("RAM:Lhx -E -N x %s \"%s/\"" #TMP #Dest_File))
  63.     (delete #TMP)
  64. )
  65.  
  66. ; **** und hier geht es richtig los!
  67.  
  68. (complete 0)
  69.  
  70. (set @default-dest "MPAINT")                    ; Falls nicht gewählt wird, ins 
  71.                                                         ; aktuelle Verzeichnis kopieren!
  72.  
  73. (set @default-dest                           ; Verzeichnis aussuchen 
  74.     (askdir
  75.         (prompt #COPVERZ)
  76.         (help    #VERZHELP @askdir-help)
  77.         (default "WORK:MPAINT")
  78.     )
  79. )
  80.  
  81. (if                                          ; Verzeichnis erzeugen
  82.     (= (exists @default-dest) 0)
  83.     (makedir @default-dest)
  84. )
  85.  
  86.  
  87.     (askdisk
  88.         (prompt "\n\n\nBitte legen Sie die Diskette \"MaxonPAINT\" ein!")
  89.         (help "Diese Diskette enthält das Hauptprogramm und verschiedene Daten.")
  90.         (dest "MaxonPAINT")
  91.     )
  92.  
  93.  
  94. (if
  95.    (= (exists "C:MuchMore") 0)
  96.     (copyfiles                                        ; MuchMore kopieren
  97.         (prompt "Einige Installationsdateien werden kopiert ...")
  98.         (help @copyfiles-help)
  99.         (source "MaxonPAINT:C")
  100.         (dest "C:")
  101.        (choices "MuchMore")
  102.     )
  103. )
  104.  
  105. (complete 5)
  106.  
  107. (
  108.     (set #Source "MaxonPAINT:")
  109.     (set #Dest @default-dest)
  110.    (set #Pattern "M#?")                            ; Paint und die Oberfläche kopieren
  111.     (set #Size #PAINTSIZE)                        ; ca. 410 KB
  112.     (Inst_PatternFiles)
  113. )
  114.  
  115.  
  116. (complete 10)
  117.  
  118.  
  119. (
  120.     (set #Source "MaxonPAINT:Fonts")
  121.     (set #Dest "FONTS:")
  122.    (set #Pattern "#?")                            ; Fonts kopieren
  123.     (set #Size #FONTSIZE)                        ; ca. 4 KB
  124.     (Inst_PatternFiles)
  125. )
  126.  
  127. (complete 20)
  128.  
  129. ; *** Funktionsbibliotheken kopieren
  130.  
  131. (copylib                                            ; RCT-LIB kopieren
  132.     (prompt "Die RCT-LIBRARY wird kopiert ...")
  133.     (help
  134.         "Die RCT-Library wird von MaxonPAINT benötigt."
  135.       "Wenn Sie diese Bibliothek schon auf Ihrer Festplatte "
  136.       "installiert haben, dann ist hier eine neuere Version.\n\n"
  137.         @copyfiles-help
  138.     )
  139.     (source "MaxonPAINT:Libs/rct.library")
  140.     (dest "Libs:")
  141.     (confirm)
  142. )
  143.  
  144. (complete 30)
  145.  
  146. (if (< (/ (getversion) 65536) 39)
  147.  
  148.     (copylib                                            ; IFFPARSE-LIB kopieren
  149.         (prompt "Die IFFParse-LIBRARY wird kopiert ...")
  150.         (help
  151.             "Die IFF-Library wird von MaxonPAINT benötigt."
  152.           "Wenn Sie diese Bibliothek schon auf Ihrer Festplatte "
  153.           "installiert haben, dann ist hier eine neuere Version.\n\n"
  154.             @copyfiles-help
  155.         )
  156.         (source "MaxonPAINT:Libs/iffparse.library")
  157.         (dest "Libs:")
  158.         (confirm)
  159.     )
  160.  
  161.     (copylib                                            ; IFFPARSE-LIB kopieren
  162.         (prompt "Die IFFParse-LIBRARY wird kopiert ...")
  163.         (help
  164.             "Die IFF-Library wird von MaxonPAINT benötigt."
  165.           "Wenn Sie diese Bibliothek schon auf Ihrer Festplatte "
  166.           "installiert haben, dann ist hier eine neuere Version.\n\n"
  167.             @copyfiles-help
  168.         )
  169.         (source "MaxonPAINT:Libs/iffparse40.1/iffparse.library")
  170.         (dest "Libs:")
  171.         (confirm)
  172.     )
  173. )
  174.  
  175. (complete 40)
  176.  
  177.     (askdisk
  178.         (prompt "\n\n\nBitte legen Sie die Diskette \"MaxonGraphics\" ein!")
  179.         (help "Diese Diskette enthält Demografiken")
  180.         (dest "MaxonGraphics")
  181.     )
  182.  
  183.  
  184. (set #graphdir (tackon @default-dest "Graphics"))
  185. (makedir #graphdir)
  186.  
  187. (
  188.     (set #Source "MaxonGraphics:")
  189.     (set #Dest #graphdir)
  190.    (set #Pattern "#?")
  191.     (set #Size #GRAPHSIZE)
  192.     (Inst_PatternFiles)
  193. )
  194.  
  195. (set #grosserfehler (tackon @default-dest "imageman.lha"))
  196.  
  197. (if(= 1 (exists #grosserfehler))
  198.     (delete #grosserfehler))
  199.  
  200.  
  201. (complete 80)
  202.  
  203. (if (> (/ (getversion) 65536) 36)
  204.     
  205.     (
  206.     (set copychoice 1)
  207.     
  208.     (set copychoice
  209.         (askchoice
  210.             (prompt "\nMöchten Sie das Zusatzprogramm Imageman installieren?")
  211.             (help @askchoice-help)
  212.             (choices "installieren" "nicht installieren")
  213.             (default 1)
  214.         )
  215.     )
  216.     
  217.     (if (not copychoice)
  218.         ( 
  219.             (copyfiles                                            ; LHX kopieren
  220.                 (prompt #COPYRAM)
  221.                 (help @copyfiles-help)
  222.                 (source "MaxonPaint:Lhx")
  223.                 (dest "RAM:")
  224.                (choices "Lhx")
  225.             )
  226.             
  227.             (    (set #Working #IMGMAN)
  228.                 (set #Dest ("Imageman"))
  229.                 (set #Source ("MaxonGraphics:"))
  230.                 (set #FName.lha ("Imageman.lha"))
  231.                 (set #Size #IMAGEMANSIZE)
  232.                 (Inst_LhaFiles)
  233.             )
  234.         )))
  235. )
  236.  
  237. (complete 90)
  238.  
  239.  
  240. ; ------- STARTUP ÄNDERN
  241.  
  242. (set command1 (cat "ASSIGN MPAINT: " @default-dest"\nASSIGN MPCACHE: RAM:"))
  243.  
  244. (set command1.txt
  245.     (cat 
  246.          "\n\n\nUm mit dem MaxonPAINT richtig arbeiten zu "
  247.       "können muß eine Änderung an der User-Startup vorgenommen werden.\n\n"
  248.          command1
  249.     )
  250. )
  251.  
  252. (startup "MaxonPAINT.app"
  253.     (prompt command1.txt)
  254.     (help @startup-help)
  255.     (command command1)
  256. )
  257.  
  258. (if @pretend
  259.     (makeassign "MPAINT" @default-dest)
  260.     (makeassign "MPCACHE" "RAM:")
  261. )
  262.  
  263. (complete 100)
  264.  
  265. ; ------- FERTIG
  266.  
  267. (message (cat 
  268.     "Installation von MaxonPAINT beendet.\n"
  269.    "Falls die Zeilen:\n" command1 "\nnicht in Ihre Startup-Sequence bzw. "
  270.    "User-Startup eingefügt wurde, dann holen Sie dies bitte nach.\n\n"
  271.    "Entfernen Sie nun die Diskette aus Ihrem Laufwerk und starten Sie "
  272.    "MaxonPAINT.\n\nViel Erfolg!")
  273. )
  274.